perm filename CODMAC.TEX[TEX,SYS]1 blob
sn#546426 filedate 1980-12-18 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % FONTS READ MAXTEX for documentation.
C00003 00003 % NOFILL MODE, GRFX
C00008 ENDMK
C⊗;
% FONTS READ MAXTEX for documentation.
% Font definitions:
\def\ttwr{\ninepoint\tt}
\def\grafix{\gfx\baselineskip -1pt}
% NOFILL MODE, GRFX
% Typewrite or graphics mode, without justification. Example:
%
% {\grfx
% ⊂αααααααααααα⊃
% line 2 ~ a box ~
% line 3 %αααααααααααα$
%
% \par} % this \par is essential!
%
% Font used is GRFX35. You may also box result to indent it or place
% at your favorite spot (READ MAXTEX).
% Inside this mode, TEX will only recognize \ { }. All other chars are
% taken literally (you may use \\,\{,\} in this mode).
% As described above:
\def\grfx{\hmode\grfxnof\noindent}
% To make boxes (READ MAXTEX)
\def\gbox#1#2{\hbox{\chcode'13←10\hboxpar#1{#2}}} %VT=
% Use this to allow a break in a long \nofill:
\def\nofbreak{\par\penalty-10000000000\noindent}
% Similar to \grfx; but font used is "cmtt"; type
% {\typewrite <no fill> text}
\def\typewrite{\ttwr\def\ {\hskip1em{}}\hmode\nofill}
% Same, but to make a paragraph (note \typewrite may be used imbedded
% in the text)
\def\typnoi{\typewrite\noindent}
% FOR internal use; use at own risk
% Produce "nofill" text. Note result is a paragraph.
% for details.
\def\nofill{\ragged 1000000
\parskip 0pt
\lineskip 0pt
\def\ {{\ms f}} % \TAB (surprise)
\def\
{\linebreak} % \CR
\chcode'1←12 % ↓
\chcode'26←12 % ⊗
\chcode'32←12 % ~
\chcode'42←12 % "
\chcode'43←12 % #
\chcode'44←12 % $
\chcode'45←12 % %
\chcode'136←12 % ↑
\chcode'11←13\chcode'15←13\chcode'40←13} % tab, cr, sp
\def\grfxnof{\grafix
\def\ {\char'40{}} % \SP
\def\\{{char'134}}
\def\{{{char'173}}
\def\}{{char'176}}
\nofill}